home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / bytebnch.arc / BENCH4.BAS < prev    next >
BASIC Source File  |  1984-07-10  |  512b  |  21 lines
  1. 810 SIZE=7000
  2. 820 DIM FLAGS(7001)
  3. 830 PRINT "START ONE ITERATION"
  4. 840 COUNT=0
  5. 850 FOR I=0 TO SIZE
  6. 860 FLAGS(I)=1
  7. 870 NEXT I
  8. 880 FOR I=0 TO SIZE
  9. 890 IF FLAGS(I)=0 THEN 970
  10. 900 PRIME=I+I+3
  11. 905 ' PRINT PRIME;
  12. 910 K=I+PRIME
  13. 920 IF K>SIZE THEN 960
  14. 930 FLAGS(K)=0
  15. 940 K=K+PRIME
  16. 950 GOTO 920
  17. 960 COUNT=COUNT+1
  18. 970 NEXT I
  19. 980 PRINT "DONE: ";COUNT;" PRIMES FOUND"
  20. 985 BEEP
  21.